home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / Scaler.ifx < prev    next >
Text File  |  1996-03-02  |  601b  |  31 lines
  1. /*
  2.  * $VER: Scaler 1.00.00 (24.9.92)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Scale the current buffer such that it can be rendered properly
  8.  * and all fit onscreen in HAM-interlaced.
  9.  *
  10.  */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. GetMain ; IF result = "" THEN EXIT
  15. PARSE VAR result name width height depth .
  16.  
  17. DO WHILE (width > 736) | (height > 480)
  18.  
  19.    IF width > 736 THEN DO
  20.       height = height * 736 % width
  21.       width = 736
  22.       END
  23.    ELSE IF height > 480 THEN DO
  24.       width = width * 480 % height
  25.       height = 480
  26.       END
  27.  
  28.    END
  29.  
  30. Scale width%2 height
  31.